home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / IMUG / Canada / Club Macintosh de Quebec / Bon de commande.cpt / Bon de commande / background_2716.txt < prev    next >
Text File  |  1992-02-21  |  10KB  |  425 lines
  1. -- background: 2716 from stack: in
  2. -- bmap block id: 3015
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 02
  10. -- high flags: 0002
  11. -- rect: left=95 top=69 right=89 bottom=305
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: nom
  20.  
  21.  
  22. -- part 2 (field)
  23. -- low flags: 02
  24. -- high flags: 0002
  25. -- rect: left=310 top=69 right=89 bottom=380
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 3
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: no membre
  34.  
  35.  
  36. -- part 3 (field)
  37. -- low flags: 02
  38. -- high flags: 0002
  39. -- rect: left=95 top=95 right=164 bottom=380
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 0
  43. -- font id: 3
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: adresse
  48.  
  49.  
  50. -- part 5 (button)
  51. -- low flags: 00
  52. -- high flags: A005
  53. -- rect: left=5 top=216 right=232 bottom=168
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 1
  57. -- font id: 0
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 16
  61. -- part name: Disquettes HyperCard
  62.  
  63.  
  64. -- part 6 (button)
  65. -- low flags: 00
  66. -- high flags: A005
  67. -- rect: left=5 top=232 right=248 bottom=168
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 1
  71. -- font id: 0
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 16
  75. -- part name: Catalogue MacLib
  76.  
  77.  
  78. -- part 7 (button)
  79. -- low flags: 00
  80. -- high flags: A005
  81. -- rect: left=5 top=248 right=264 bottom=168
  82. -- title width / last selected line: 0
  83. -- icon id / first selected line: 0 / 0
  84. -- text alignment: 1
  85. -- font id: 0
  86. -- text size: 12
  87. -- style flags: 0
  88. -- line height: 16
  89. -- part name: Versions démos
  90.  
  91.  
  92. -- part 8 (button)
  93. -- low flags: 00
  94. -- high flags: A005
  95. -- rect: left=5 top=200 right=216 bottom=168
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 0 / 0
  98. -- text alignment: 1
  99. -- font id: 0
  100. -- text size: 12
  101. -- style flags: 0
  102. -- line height: 16
  103. -- part name: Disquettes MacLib
  104. ----- HyperTalk script -----
  105. on mouseUp
  106. end mouseUp
  107.  
  108.  
  109.  
  110. -- part 9 (field)
  111. -- low flags: 02
  112. -- high flags: 0002
  113. -- rect: left=185 top=200 right=215 bottom=217
  114. -- title width / last selected line: 0
  115. -- icon id / first selected line: 0 / 0
  116. -- text alignment: 1
  117. -- font id: 3
  118. -- text size: 10
  119. -- style flags: 0
  120. -- line height: 13
  121. -- part name: nb1
  122.  
  123.  
  124. -- part 10 (field)
  125. -- low flags: 02
  126. -- high flags: 0002
  127. -- rect: left=185 top=216 right=231 bottom=217
  128. -- title width / last selected line: 0
  129. -- icon id / first selected line: 0 / 0
  130. -- text alignment: 1
  131. -- font id: 3
  132. -- text size: 10
  133. -- style flags: 0
  134. -- line height: 13
  135. -- part name: nb2
  136.  
  137.  
  138. -- part 11 (field)
  139. -- low flags: 02
  140. -- high flags: 0002
  141. -- rect: left=185 top=232 right=247 bottom=217
  142. -- title width / last selected line: 0
  143. -- icon id / first selected line: 0 / 0
  144. -- text alignment: 1
  145. -- font id: 3
  146. -- text size: 10
  147. -- style flags: 0
  148. -- line height: 13
  149. -- part name: nb3
  150.  
  151.  
  152. -- part 12 (field)
  153. -- low flags: 02
  154. -- high flags: 0002
  155. -- rect: left=185 top=248 right=263 bottom=217
  156. -- title width / last selected line: 0
  157. -- icon id / first selected line: 0 / 0
  158. -- text alignment: 1
  159. -- font id: 3
  160. -- text size: 10
  161. -- style flags: 0
  162. -- line height: 13
  163. -- part name: nb4
  164.  
  165.  
  166. -- part 13 (field)
  167. -- low flags: 02
  168. -- high flags: 0002
  169. -- rect: left=263 top=200 right=215 bottom=500
  170. -- title width / last selected line: 0
  171. -- icon id / first selected line: 0 / 0
  172. -- text alignment: 0
  173. -- font id: 3
  174. -- text size: 10
  175. -- style flags: 0
  176. -- line height: 13
  177. -- part name: l1
  178.  
  179.  
  180. -- part 14 (field)
  181. -- low flags: 02
  182. -- high flags: 0002
  183. -- rect: left=263 top=216 right=231 bottom=500
  184. -- title width / last selected line: 0
  185. -- icon id / first selected line: 0 / 0
  186. -- text alignment: 0
  187. -- font id: 3
  188. -- text size: 10
  189. -- style flags: 0
  190. -- line height: 13
  191. -- part name: l2
  192.  
  193.  
  194. -- part 16 (field)
  195. -- low flags: 02
  196. -- high flags: 0002
  197. -- rect: left=263 top=248 right=263 bottom=500
  198. -- title width / last selected line: 0
  199. -- icon id / first selected line: 0 / 0
  200. -- text alignment: 0
  201. -- font id: 3
  202. -- text size: 10
  203. -- style flags: 0
  204. -- line height: 13
  205. -- part name: l4
  206.  
  207.  
  208. -- part 17 (field)
  209. -- low flags: 01
  210. -- high flags: 0002
  211. -- rect: left=311 top=301 right=317 bottom=378
  212. -- title width / last selected line: 0
  213. -- icon id / first selected line: 0 / 0
  214. -- text alignment: 1
  215. -- font id: 3
  216. -- text size: 10
  217. -- style flags: 256
  218. -- line height: 13
  219. -- part name: total
  220.  
  221.  
  222. -- part 18 (button)
  223. -- low flags: 00
  224. -- high flags: A002
  225. -- rect: left=416 top=301 right=317 bottom=499
  226. -- title width / last selected line: 0
  227. -- icon id / first selected line: 0 / 0
  228. -- text alignment: 1
  229. -- font id: 0
  230. -- text size: 12
  231. -- style flags: 0
  232. -- line height: 16
  233. -- part name: Calculer
  234. ----- HyperTalk script -----
  235. on mouseUp
  236.   put 0 into montant
  237.   if fld nb1 is 0 then put empty into fld nb1
  238.   if fld nb2 is 0 then put empty into fld nb2
  239.   if fld nb3 is 0 then put empty into fld nb3
  240.   if fld nb4 is 0 then put empty into fld nb4
  241.   if fld nb5 is 0 then put empty into fld nb5
  242.   if fld nb7 is 0 then put empty into fld nb7
  243.   if fld nb8 is 0 then put empty into fld nb8
  244.   if fld nb9 is 0 then put empty into fld nb9
  245.   if fld nb1 is empty then
  246.     set the hilite of bg btn 4 to false
  247.     put empty into bg fld l1
  248.   end if
  249.   if fld nb2 is empty then
  250.     set the hilite of bg btn 1 to false
  251.     put empty into bg fld l2
  252.   end if
  253.   if fld nb3 is empty then
  254.     set the hilite of bg btn 2 to false
  255.   end if
  256.   if fld nb4 is empty then
  257.     set the hilite of bg btn 3 to false
  258.     put empty into bg fld l4
  259.   end if
  260.   if fld nb5 is empty then
  261.     set the hilite of bg btn 7 to false
  262.   end if
  263.   if fld nb7 is empty then
  264.     set the hilite of bg btn 8 to false
  265.   end if
  266.   if fld nb8 is empty then
  267.     set the hilite of bg btn 9 to false
  268.   end if
  269.   if fld nb9 is empty then
  270.     set the hilite of bg btn 10 to false
  271.   end if
  272.   if fld nb1 is not empty then set the hilite of bg btn 4 to true
  273.   if fld nb2 is not empty then set the hilite of bg btn 1 to true
  274.   if fld nb3 is not empty then set the hilite of bg btn 2 to true
  275.   if fld nb4 is not empty then set the hilite of bg btn 3 to true
  276.   if fld nb5 is not empty then set the hilite of bg btn 7 to true
  277.   if fld nb7 is not empty then set the hilite of bg btn 8 to true
  278.   if fld nb8 is not empty then set the hilite of bg btn 9 to true
  279.   if fld nb9 is not empty then set the hilite of bg btn 10 to true
  280.   if hilite of bg btn 4 then add (fld nb1 * 10) to montant
  281.   if hilite of bg btn 1 then add (fld nb2 * 10) to montant
  282.   if hilite of bg btn 2 then add (fld nb3 * 5) to montant
  283.   if hilite of bg btn 3 then add (fld nb4 * 5) to montant
  284.   if hilite of bg btn 7 then add (fld nb5 * 10) to montant
  285.   if hilite of bg btn 8 then add (fld nb7 * 3) to montant
  286.   if hilite of bg btn 9 then add (fld nb8 * 5) to montant
  287.   if hilite of bg btn 10 then add (fld nb9 * 25) to montant
  288.   set the numberFormat to "0.00"
  289.   add 0 to montant
  290.   put montant into fld total
  291. end mouseUp
  292.  
  293.  
  294.  
  295. -- part 19 (button)
  296. -- low flags: 00
  297. -- high flags: A002
  298. -- rect: left=416 top=283 right=299 bottom=499
  299. -- title width / last selected line: 0
  300. -- icon id / first selected line: 0 / 0
  301. -- text alignment: 1
  302. -- font id: 0
  303. -- text size: 12
  304. -- style flags: 0
  305. -- line height: 16
  306. -- part name: Imprimer
  307. ----- HyperTalk script -----
  308. on mouseUp
  309.   lock screen
  310.   print 2 cards
  311. end mouseUp
  312.  
  313.  
  314.  
  315. -- part 21 (button)
  316. -- low flags: 00
  317. -- high flags: A005
  318. -- rect: left=5 top=264 right=280 bottom=179
  319. -- title width / last selected line: 0
  320. -- icon id / first selected line: 0 / 0
  321. -- text alignment: 1
  322. -- font id: 0
  323. -- text size: 12
  324. -- style flags: 0
  325. -- line height: 16
  326. -- part name: Système 6.0.5 français
  327.  
  328.  
  329. -- part 23 (button)
  330. -- low flags: 00
  331. -- high flags: A005
  332. -- rect: left=5 top=280 right=296 bottom=168
  333. -- title width / last selected line: 0
  334. -- icon id / first selected line: 0 / 0
  335. -- text alignment: 1
  336. -- font id: 0
  337. -- text size: 12
  338. -- style flags: 0
  339. -- line height: 16
  340. -- part name: Info-CMQ
  341.  
  342.  
  343. -- part 24 (field)
  344. -- low flags: 02
  345. -- high flags: 0002
  346. -- rect: left=185 top=264 right=279 bottom=217
  347. -- title width / last selected line: 0
  348. -- icon id / first selected line: 0 / 0
  349. -- text alignment: 1
  350. -- font id: 3
  351. -- text size: 10
  352. -- style flags: 0
  353. -- line height: 13
  354. -- part name: nb5
  355.  
  356.  
  357. -- part 26 (field)
  358. -- low flags: 02
  359. -- high flags: 0002
  360. -- rect: left=185 top=280 right=295 bottom=217
  361. -- title width / last selected line: 0
  362. -- icon id / first selected line: 0 / 0
  363. -- text alignment: 1
  364. -- font id: 3
  365. -- text size: 10
  366. -- style flags: 0
  367. -- line height: 13
  368. -- part name: nb7
  369.  
  370.  
  371. -- part 27 (button)
  372. -- low flags: 00
  373. -- high flags: A005
  374. -- rect: left=5 top=296 right=312 bottom=180
  375. -- title width / last selected line: 0
  376. -- icon id / first selected line: 0 / 0
  377. -- text alignment: 1
  378. -- font id: 0
  379. -- text size: 12
  380. -- style flags: 0
  381. -- line height: 16
  382. -- part name: Synapse (3 disquettes)
  383.  
  384.  
  385. -- part 28 (field)
  386. -- low flags: 02
  387. -- high flags: 0002
  388. -- rect: left=185 top=296 right=311 bottom=217
  389. -- title width / last selected line: 0
  390. -- icon id / first selected line: 0 / 0
  391. -- text alignment: 1
  392. -- font id: 3
  393. -- text size: 10
  394. -- style flags: 0
  395. -- line height: 13
  396. -- part name: nb8
  397.  
  398.  
  399. -- part 29 (button)
  400. -- low flags: 00
  401. -- high flags: A005
  402. -- rect: left=5 top=312 right=328 bottom=180
  403. -- title width / last selected line: 0
  404. -- icon id / first selected line: 0 / 0
  405. -- text alignment: 1
  406. -- font id: 0
  407. -- text size: 12
  408. -- style flags: 0
  409. -- line height: 16
  410. -- part name: Système 7.0 français
  411.  
  412.  
  413. -- part 30 (field)
  414. -- low flags: 02
  415. -- high flags: 0002
  416. -- rect: left=185 top=312 right=327 bottom=217
  417. -- title width / last selected line: 0
  418. -- icon id / first selected line: 0 / 0
  419. -- text alignment: 1
  420. -- font id: 3
  421. -- text size: 10
  422. -- style flags: 0
  423. -- line height: 13
  424. -- part name: nb9
  425.